home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / tex / style / misc / shadow.sty < prev    next >
Text File  |  1995-11-25  |  1KB  |  28 lines
  1. \newdimen\txtwdth  \newdimen\sht  \newdimen\shw  \newbox\shbox
  2. \newdimen\sboxsep  \newdimen\sboxrule  \newdimen\sdim
  3. \sboxsep  = 10pt
  4. \sdim     = 3pt
  5. \sboxrule = 0.5pt
  6. \def\shabox#1{\setbox\@tempboxa\hbox{#1}
  7. \shw\wd\@tempboxa
  8. \if@twocolumn\txtwdth\columnwidth\else\txtwdth\textwidth\fi
  9. \ifdim\shw<\txtwdth
  10.   \leavevmode\setbox\@tempboxa\hbox{#1}
  11. \else
  12.   \typeout{Shadow Warning: Box dimension greater than textwidth.}
  13.   \setbox\@tempboxa\vbox{\hsize\txtwdth\advance\hsize-2\sboxsep
  14.     \advance\hsize-2\sboxrule \advance\hsize-2\sdim \advance\hsize-15pt#1}
  15. \fi
  16.  \setbox\shbox\hbox{\@tempdima\sboxrule
  17.      \advance\@tempdima \sboxsep \advance\@tempdima \dp\@tempboxa
  18.     \hbox{\lower \@tempdima\hbox
  19.    {\vbox{\hrule \@height \sboxrule
  20.            \hbox{\vrule \@width \sboxrule \hskip\sboxsep
  21.           \vbox{\vskip\sboxsep \box\@tempboxa\vskip\sboxsep}\hskip
  22.               \sboxsep\vrule \@width \sboxrule}
  23.             \hrule \@height \sboxrule}}}}
  24. \sht\ht\shbox \advance\sht-\sdim
  25. \leavevmode\vbox{\baselineskip0pt\lineskip0pt
  26.              \hbox{\copy\shbox\vrule width\sdim height\sht}
  27.              \hbox{\kern\sdim\vrule height\sdim width \wd\shbox}}}
  28. ə